libs <- c("plotly", "data.table", "lubridate", "dplyr", "stringr", "tidyr")
for (i in libs){
if( !is.element(i, .packages(all.available = TRUE)) ) {
install.packages(i)
}
library(i,character.only = TRUE)
}
sessionInfo()
## R version 3.3.3 (2017-03-06)
## Platform: x86_64-w64-mingw32/x64 (64-bit)
## Running under: Windows 10 x64 (build 15063)
##
## locale:
## [1] LC_COLLATE=Chinese (Simplified)_China.936
## [2] LC_CTYPE=Chinese (Simplified)_China.936
## [3] LC_MONETARY=Chinese (Simplified)_China.936
## [4] LC_NUMERIC=C
## [5] LC_TIME=Chinese (Simplified)_China.936
##
## attached base packages:
## [1] stats graphics grDevices utils datasets methods base
##
## other attached packages:
## [1] tidyr_0.7.1 stringr_1.2.0 dplyr_0.7.4
## [4] lubridate_1.6.0 data.table_1.10.4 plotly_4.7.1.9000
## [7] ggplot2_2.2.1.9000
##
## loaded via a namespace (and not attached):
## [1] Rcpp_0.12.13 bindr_0.1 knitr_1.17
## [4] magrittr_1.5 munsell_0.4.3 viridisLite_0.2.0
## [7] colorspace_1.3-2 R6_2.2.2 rlang_0.1.2
## [10] httr_1.3.1 plyr_1.8.4 tools_3.3.3
## [13] grid_3.3.3 gtable_0.2.0 htmltools_0.3.6
## [16] assertthat_0.2.0 yaml_2.1.14 lazyeval_0.2.0
## [19] rprojroot_1.2 digest_0.6.12 tibble_1.3.4
## [22] bindrcpp_0.2 purrr_0.2.3 htmlwidgets_0.9
## [25] glue_1.1.1 evaluate_0.10 rmarkdown_1.6
## [28] stringi_1.1.5 scales_0.5.0.9000 backports_1.1.0
## [31] jsonlite_1.5 pkgconfig_2.0.1
共接收自定义表情信息2732条,其中非重复的表情一共有275个,接收的最多的一个表情163次。
表情包发送数目的前5位如下:
第 1 位: 163 次
第 2 位: 131 次
第 3 位: 114 次
第 4 位: 111 次
第 5 位: 106 次
共发送自定义表情信息1659条,其中非重复的表情一共有117个,接收的最多的一个表情182次。